home *** CD-ROM | disk | FTP | other *** search
- object NewDoc: TNewDoc
- Left = 151
- Top = 67
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'New HTML Document - Horizon Web Text'
- ClientHeight = 319
- ClientWidth = 373
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = Button1Click
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 4
- Top = 4
- Width = 365
- Height = 97
- Shape = bsFrame
- end
- object Label1: TLabel
- Left = 25
- Top = 16
- Width = 126
- Height = 13
- Caption = 'Document Type Definition:'
- end
- object Label2: TLabel
- Left = 25
- Top = 44
- Width = 75
- Height = 13
- Caption = 'Document Title:'
- end
- object Label3: TLabel
- Left = 25
- Top = 74
- Width = 93
- Height = 13
- Caption = 'Background Image:'
- end
- object dtd: TComboBox
- Left = 169
- Top = 12
- Width = 85
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- ''
- 'HTML 2.0'
- 'HTML 3.0'
- 'Netscape'
- 'Microsoft')
- TabOrder = 0
- end
- object title: TEdit
- Left = 129
- Top = 41
- Width = 229
- Height = 21
- TabOrder = 1
- end
- object GroupBox1: TGroupBox
- Left = 37
- Top = 106
- Width = 299
- Height = 175
- Caption = 'Colors'
- TabOrder = 3
- object Label4: TLabel
- Left = 33
- Top = 24
- Width = 61
- Height = 13
- Caption = 'Background:'
- end
- object Label5: TLabel
- Left = 70
- Top = 54
- Width = 24
- Height = 13
- Caption = 'Text:'
- end
- object Label6: TLabel
- Left = 71
- Top = 84
- Width = 23
- Height = 13
- Caption = 'Link:'
- end
- object Label7: TLabel
- Left = 38
- Top = 144
- Width = 56
- Height = 13
- Caption = 'Active Link:'
- end
- object Label8: TLabel
- Left = 37
- Top = 114
- Width = 57
- Height = 13
- Caption = 'Visited Link:'
- end
- object sbBGround: TSpeedButton
- Left = 168
- Top = 20
- Width = 17
- Height = 21
- Hint = 'Choose a background color'
- Caption = '...'
- OnClick = sbBGroundClick
- end
- object sbText: TSpeedButton
- Left = 168
- Top = 50
- Width = 17
- Height = 21
- Hint = 'Choose a text color'
- Caption = '...'
- OnClick = sbTextClick
- end
- object sbLink: TSpeedButton
- Left = 168
- Top = 80
- Width = 17
- Height = 21
- Hint = 'Choose a color for links'
- Caption = '...'
- OnClick = sbLinkClick
- end
- object sbALink: TSpeedButton
- Left = 168
- Top = 140
- Width = 17
- Height = 21
- Hint = 'Choose a link color for when the mouse button is down'
- Caption = '...'
- OnClick = sbALinkClick
- end
- object sbVLink: TSpeedButton
- Left = 168
- Top = 110
- Width = 17
- Height = 21
- Hint = 'Choose a color for visited links'
- Caption = '...'
- OnClick = sbVLinkClick
- end
- object bground: TEdit
- Left = 108
- Top = 20
- Width = 61
- Height = 21
- TabOrder = 0
- end
- object text: TEdit
- Left = 108
- Top = 50
- Width = 61
- Height = 21
- TabOrder = 1
- end
- object link: TEdit
- Left = 108
- Top = 80
- Width = 61
- Height = 21
- TabOrder = 2
- end
- object alink: TEdit
- Left = 108
- Top = 140
- Width = 61
- Height = 21
- TabOrder = 4
- end
- object vlink: TEdit
- Left = 108
- Top = 110
- Width = 61
- Height = 21
- TabOrder = 3
- end
- object b: TPanel
- Left = 204
- Top = 18
- Width = 57
- Height = 25
- BevelOuter = bvLowered
- Caption = 'Test'
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- end
- object t: TPanel
- Left = 204
- Top = 48
- Width = 57
- Height = 25
- BevelOuter = bvLowered
- Caption = 'Test'
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- end
- object l: TPanel
- Left = 204
- Top = 78
- Width = 57
- Height = 25
- BevelOuter = bvLowered
- Caption = 'Test'
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- TabOrder = 7
- end
- object v: TPanel
- Left = 204
- Top = 108
- Width = 57
- Height = 25
- BevelOuter = bvLowered
- Caption = 'Test'
- Font.Color = clPurple
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- TabOrder = 8
- end
- object a: TPanel
- Left = 204
- Top = 138
- Width = 57
- Height = 25
- BevelOuter = bvLowered
- Caption = 'Test'
- Font.Color = clRed
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsUnderline]
- ParentFont = False
- TabOrder = 9
- end
- end
- object Button1: TButton
- Left = 101
- Top = 288
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 4
- end
- object Button2: TButton
- Left = 197
- Top = 288
- Width = 75
- Height = 25
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 5
- end
- object background: THistoryComboBox
- Left = 129
- Top = 70
- Width = 229
- Height = 21
- ItemHeight = 13
- TabOrder = 2
- Key = 'Software\Horizon\SrcHistory'
- MaxHistoryLength = 10
- end
- object ColorDialog1: TColorDialog
- Ctl3D = True
- Left = 296
- Top = 288
- end
- end
-